home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / dev / moni / SystemViewer.lha / Source / SysHardAsm.asm < prev    next >
Encoding:
Assembly Source File  |  2001-02-14  |  1.5 KB  |  73 lines
  1. ****h* SysHardAsm/SysHardAsm.asm ************************************
  2. *
  3. * NAME
  4. *    SysHardAsm.asm
  5. *
  6. * DESCRIPTION
  7. *    Get some information about the CACR values.
  8. *
  9. * NOTES
  10. *    $VER: SysHardAsm.asm 1.0 (14-Feb-2001) by J.T. Steichen
  11. *********************************************************************
  12. *
  13. *
  14.  
  15.      XDEF _GetCacheReg
  16.      XDEF _GetMMUsrReg
  17.      XDEF _GetCACR
  18.      XDEF _GetMMUsr
  19.  
  20. GETCACHEREG EQU $4E7A0002 ; In case asm can't handle 68040 instructions
  21. GETMMUSRREG EQU $4E7A0805
  22.  
  23. * Called by the exec function Supervisor():
  24.  
  25. _GetCacheReg:
  26.  
  27.      DC.L    GETCACHEREG
  28. *     MOVEC.L CACR,D0 ; $4E7A, $0002
  29.      RTE
  30.  
  31. _GetMMUsrReg:
  32.  
  33.      DC.L    GETMMUSRREG
  34. *     MOVEC.L MMUSR,D0 ;$4E7A, $0805
  35.      RTE 
  36.  
  37. **************************************************************
  38.  
  39. _GetCACR:
  40.      MOVE.L 4,A6
  41.      JSR    -150(A6)     ; SuperState
  42.  
  43.      DC.L   GETCACHEREG
  44. *     MOVEC  CACR,D0      ; Get the CACR register into D0.
  45.      MOVE.L D0,save_cacr ; save it in case UserState trashes D0.
  46.  
  47.      MOVE.L 4,A6
  48.      JSR    -156(A6)     ; UserState
  49.  
  50.      MOVE.L save_cacr,D0 ; Restore save_cacr
  51.  
  52.      RTS
  53.  
  54. _GetMMUsr:
  55.      MOVE.L 4,A6
  56.      JSR    -150(A6)      ; SuperState
  57.  
  58.      DC.L   GETMMUSRREG
  59. *     MOVEC  MMUSR,D0      ; Get the CACR register into D0.
  60.      MOVE.L D0,save_MMUSR ; save it in case UserState trashes D0.
  61.  
  62.      MOVE.L 4,A6
  63.      JSR    -156(A6)      ; UserState
  64.  
  65.      MOVE.L save_MMUSR,D0 ; Restore save_MMUSR
  66.  
  67.      RTS
  68.  
  69. save_cacr   DC.L   00000000
  70. save_MMUSR  DC.L   00000000
  71.  
  72.      END
  73.